home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 029 (1987-08-15)(Ossowski, Stefan)(DE)(PD).zip / Taifun 029 (1987-08-15)(Ossowski, Stefan)(DE)(PD).adf / Robotroff / Rnd.asm < prev    next >
Assembly Source File  |  1978-08-10  |  721b  |  40 lines
  1. *\
  2. *  :ts=8
  3. * Yet Another random number generator.  By Leo Schwab.
  4. * Based on an idea posted on the USENET (Thanks, Sam Dicker!)
  5. * For the Manx assembler.
  6. *
  7. * Calling convention:
  8. *  short rnd (range);
  9. *  short range;
  10. *
  11. * 8606.30
  12. */
  13.  
  14.         public    _rnd
  15.  
  16. _rnd        lea    rndseed,a0    ; Get address of seed
  17.         move.w    4(sp),d1    ; Get range argument
  18.         tst.w    d1
  19.         ble.s    setseed        ; Go reset seed
  20.  
  21.  
  22.         move.l    (a0),d0        ; Get seed
  23.         ADD.L   D0,D0
  24.         BHI.S   over
  25.         EORI.L  #$1D872B41,D0
  26. over
  27.         move.l    d0,(a0)        ; Save new seed
  28.         andi.l    #$ffff,d0    ; Coerce into word
  29.         divu    d1,d0        ; Divide by range
  30.         swap    d0        ;  and get remainder (modulus)
  31.         rts
  32.  
  33. setseed        neg.w    d1        ; Probably don't need this
  34.         move.l    d1,(a0)
  35.         rts
  36.  
  37.         dseg
  38. rndseed        dc.l    0
  39.         cseg
  40.